home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1312.dms / var1312.adf / HP11 / PROG_CODES.C < prev    next >
C/C++ Source or Header  |  1991-06-11  |  8KB  |  328 lines
  1. /* The actual codes used */
  2. #include "exec/types.h"
  3.  
  4. #include "hp11/prog_codes.h"
  5.  
  6. /* To decode an instruction, you use its code (from codes.h). Therefore,
  7.   if these are changed, you must change these keycodes as well */
  8. struct KeyCode keycodes[] = {
  9.    {ONECODE, 11},
  10.    {ONECODE, 12},
  11.    {ONECODE, 13},
  12.    {ONECODE, 14},
  13.    {ONECODE, 15},
  14.    {ONECODE, 16},
  15.    {ONECODE, 10},
  16.    {ONECODE, 23},
  17.    {ONECODE, 24},
  18.    {ONECODE, 25},
  19.    {ONECODE, 26},
  20.    {ONECODE, 20},
  21.    {ONECODE, 31},
  22.    {ONECODE, 33},
  23.    {ONECODE, 34},
  24.    {ONECODE, 36},
  25.    {ONECODE, 30},
  26.    {ONECODE, 48},
  27.    {ONECODE, 49},
  28.    {ONECODE, 40},
  29. /* f codes */
  30.    {TWOCODE, 42, 16},
  31.    {TWOCODE, 42, 10},
  32.    {TWOCODE, 42, 23},
  33.    {TWOCODE, 42, 26},
  34.    {TWOCODE_9, 42, 4},
  35.    {TWOCODE_9, 42, 5},
  36.    {TWOCODE_9, 42, 6},
  37.    {TWOCODE, 42, 20},
  38.    {TWOCODE, 42, 31},
  39.    {TWOCODE, 42, 32},
  40.    {TWOCODE, 42, 34},
  41.    {TWOCODE, 42, 36},
  42.    {TWOCODE_9, 42, 1},
  43.    {TWOCODE_9, 42, 2},
  44.    {TWOCODE_9, 42, 3},
  45.    {TWOCODE, 42, 30},
  46.    {TWOCODE, 42, 44},
  47.    {TWOCODE_9, 42,0},
  48.    {TWOCODE, 42, 48},
  49.    {TWOCODE, 42, 49},
  50.    {TWOCODE, 42, 40},
  51. /* g codes */
  52.    {TWOCODE, 43, 11},
  53.    {TWOCODE, 43, 12},
  54.    {TWOCODE, 43, 13},
  55.    {TWOCODE, 43, 14},
  56.    {TWOCODE, 43, 15},
  57.    {TWOCODE, 43, 16},
  58.    {TWOCODE_9, 43, 7},
  59.    {TWOCODE_9, 43, 8},
  60.    {TWOCODE_9, 43, 9},
  61.    {TWOCODE, 43, 10},
  62.    {TWOCODE, 43, 23},
  63.    {TWOCODE, 43, 24},
  64.    {TWOCODE, 43, 25},
  65.    {TWOCODE, 43, 26},
  66.    {TWOCODE, 43, 20},
  67.    {TWOCODE, 43, 32},
  68.    {TWOCODE, 43, 33},
  69.    {TWOCODE, 43, 34},
  70.    {TWOCODE, 43, 35},
  71.    {TWOCODE, 43, 36},
  72.    {TWOCODE_9, 43, 1},
  73.    {TWOCODE_9, 43, 2},
  74.    {TWOCODE_9, 43, 3},
  75.    {TWOCODE, 43, 30},
  76.    {TWOCODE, 43, 44},
  77.    {TWOCODE_9, 43, 0},
  78.    {TWOCODE, 43, 48},
  79.    {TWOCODE, 43, 49},
  80.    {TWOCODE, 43, 40},
  81. /* Miscellaneous */
  82.    {TWOCODE, 45, 36},
  83.    {TWOCODE, 45, 49},
  84. /* ARC */
  85.    {THREECODE, 42, 22, 23},
  86.    {THREECODE, 42, 22, 24},
  87.    {THREECODE, 42, 22, 25},
  88.    {THREECODE, 43, 22, 23},
  89.    {THREECODE, 43, 22, 24},
  90.    {THREECODE, 43, 22, 25},
  91. /* Flags */
  92.    {THREECODE, 43, 4, 0},
  93.    {THREECODE, 43, 4, 1},
  94.    {THREECODE, 43, 5, 0},
  95.    {THREECODE, 43, 5, 1},
  96.    {THREECODE, 43, 6, 0},
  97.    {THREECODE, 43, 6, 1},
  98. /* Figures */
  99.    {ONECODE, 0},
  100.    {ONECODE, 1},
  101.    {ONECODE, 2},
  102.    {ONECODE, 3},
  103.    {ONECODE, 4},
  104.    {ONECODE, 5},
  105.    {ONECODE, 6},
  106.    {ONECODE, 7},
  107.    {ONECODE, 8},
  108.    {ONECODE, 9},
  109. /* FIX, SCI, ENG */
  110.    {THREECODE, 42, 7, 0},
  111.    {THREECODE, 42, 7, 1},
  112.    {THREECODE, 42, 7, 2},
  113.    {THREECODE, 42, 7, 3},
  114.    {THREECODE, 42, 7, 4},
  115.    {THREECODE, 42, 7, 5},
  116.    {THREECODE, 42, 7, 6},
  117.    {THREECODE, 42, 7, 7},
  118.    {THREECODE, 42, 7, 8},
  119.    {THREECODE, 42, 7, 9},
  120.  
  121.    {THREECODE, 42, 8, 0},
  122.    {THREECODE, 42, 8, 1},
  123.    {THREECODE, 42, 8, 2},
  124.    {THREECODE, 42, 8, 3},
  125.    {THREECODE, 42, 8, 4},
  126.    {THREECODE, 42, 8, 5},
  127.    {THREECODE, 42, 8, 6},
  128.    {THREECODE, 42, 8, 7},
  129.  
  130.    {THREECODE, 42, 9, 0},
  131.    {THREECODE, 42, 9, 1},
  132.    {THREECODE, 42, 9, 2},
  133.    {THREECODE, 42, 9, 3},
  134.    {THREECODE, 42, 9, 4},
  135.    {THREECODE, 42, 9, 5},
  136.    {THREECODE, 42, 9, 6},
  137.    {THREECODE, 42, 9, 7},
  138. /* LBL, GTO, GSB */
  139.    {THREECODE, 42, 21, 0},
  140.    {THREECODE, 42, 21, 1},
  141.    {THREECODE, 42, 21, 2},
  142.    {THREECODE, 42, 21, 3},
  143.    {THREECODE, 42, 21, 4},
  144.    {THREECODE, 42, 21, 5},
  145.    {THREECODE, 42, 21, 6},
  146.    {THREECODE, 42, 21, 7},
  147.    {THREECODE, 42, 21, 8},
  148.    {THREECODE, 42, 21, 9},
  149.    {THREECODE, 42, 21, 11},
  150.    {THREECODE, 42, 21, 12},
  151.    {THREECODE, 42, 21, 13},
  152.    {THREECODE, 42, 21, 14},
  153.    {THREECODE, 42, 21, 15},
  154.  
  155.    {TWOCODE_9, 22, 0},
  156.    {TWOCODE_9, 22, 1},
  157.    {TWOCODE_9, 22, 2},
  158.    {TWOCODE_9, 22, 3},
  159.    {TWOCODE_9, 22, 4},
  160.    {TWOCODE_9, 22, 5},
  161.    {TWOCODE_9, 22, 6},
  162.    {TWOCODE_9, 22, 7},
  163.    {TWOCODE_9, 22, 8},
  164.    {TWOCODE_9, 22, 9},
  165.    {TWOCODE, 22, 11},
  166.    {TWOCODE, 22, 12},
  167.    {TWOCODE, 22, 13},
  168.    {TWOCODE, 22, 14},
  169.    {TWOCODE, 22, 15},
  170.    {TWOCODE, 22, 25},
  171.  
  172.    {TWOCODE_9, 32, 0},
  173.    {TWOCODE_9, 32, 1},
  174.    {TWOCODE_9, 32, 2},
  175.    {TWOCODE_9, 32, 3},
  176.    {TWOCODE_9, 32, 4},
  177.    {TWOCODE_9, 32, 5},
  178.    {TWOCODE_9, 32, 6},
  179.    {TWOCODE_9, 32, 7},
  180.    {TWOCODE_9, 32, 8},
  181.    {TWOCODE_9, 32, 9},
  182.    {TWOCODE, 32, 11},
  183.    {TWOCODE, 32, 12},
  184.    {TWOCODE, 32, 13},
  185.    {TWOCODE, 32, 14},
  186.    {TWOCODE, 32, 15},
  187.    {TWOCODE, 32, 25},
  188. /* STO, STO +, STO -, STO *, STO / */
  189.    {TWOCODE_9, 44, 0},
  190.    {TWOCODE_9, 44, 1},
  191.    {TWOCODE_9, 44, 2},
  192.    {TWOCODE_9, 44, 3},
  193.    {TWOCODE_9, 44, 4},
  194.    {TWOCODE_9, 44, 5},
  195.    {TWOCODE_9, 44, 6},
  196.    {TWOCODE_9, 44, 7},
  197.    {TWOCODE_9, 44, 8},
  198.    {TWOCODE_9, 44, 9},
  199.    {TWOCODE_PT, 44, 0},
  200.    {TWOCODE_PT, 44, 1},
  201.    {TWOCODE_PT, 44, 2},
  202.    {TWOCODE_PT, 44, 3},
  203.    {TWOCODE_PT, 44, 4},
  204.    {TWOCODE_PT, 44, 5},
  205.    {TWOCODE_PT, 44, 6},
  206.    {TWOCODE_PT, 44, 7},
  207.    {TWOCODE_PT, 44, 8},
  208.    {TWOCODE_PT, 44, 9},
  209.    {TWOCODE, 44, 25},
  210.    {TWOCODE, 44, 24},
  211.  
  212.    {THREECODE, 44, 40, 0},
  213.    {THREECODE, 44, 40, 1},
  214.    {THREECODE, 44, 40, 2},
  215.    {THREECODE, 44, 40, 3},
  216.    {THREECODE, 44, 40, 4},
  217.    {THREECODE, 44, 40, 5},
  218.    {THREECODE, 44, 40, 6},
  219.    {THREECODE, 44, 40, 7},
  220.    {THREECODE, 44, 40, 8},
  221.    {THREECODE, 44, 40, 9},
  222.    {THREECODE_PT, 44, 40, 0},
  223.    {THREECODE_PT, 44, 40, 1},
  224.    {THREECODE_PT, 44, 40, 2},
  225.    {THREECODE_PT, 44, 40, 3},
  226.    {THREECODE_PT, 44, 40, 4},
  227.    {THREECODE_PT, 44, 40, 5},
  228.    {THREECODE_PT, 44, 40, 6},
  229.    {THREECODE_PT, 44, 40, 7},
  230.    {THREECODE_PT, 44, 40, 8},
  231.    {THREECODE_PT, 44, 40, 9},
  232.    {THREECODE, 44, 40, 25},
  233.    {THREECODE, 44, 40, 24},
  234.  
  235.    {THREECODE, 44, 30, 0},
  236.    {THREECODE, 44, 30, 1},
  237.    {THREECODE, 44, 30, 2},
  238.    {THREECODE, 44, 30, 3},
  239.    {THREECODE, 44, 30, 4},
  240.    {THREECODE, 44, 30, 5},
  241.    {THREECODE, 44, 30, 6},
  242.    {THREECODE, 44, 30, 7},
  243.    {THREECODE, 44, 30, 8},
  244.    {THREECODE, 44, 30, 9},
  245.    {THREECODE_PT, 44, 30, 0},
  246.    {THREECODE_PT, 44, 30, 1},
  247.    {THREECODE_PT, 44, 30, 2},
  248.    {THREECODE_PT, 44, 30, 3},
  249.    {THREECODE_PT, 44, 30, 4},
  250.    {THREECODE_PT, 44, 30, 5},
  251.    {THREECODE_PT, 44, 30, 6},
  252.    {THREECODE_PT, 44, 30, 7},
  253.    {THREECODE_PT, 44, 30, 8},
  254.    {THREECODE_PT, 44, 30, 9},
  255.    {THREECODE, 44, 30, 25},
  256.    {THREECODE, 44, 30, 24},
  257.  
  258.    {THREECODE, 44, 20, 0},
  259.    {THREECODE, 44, 20, 1},
  260.    {THREECODE, 44, 20, 2},
  261.    {THREECODE, 44, 20, 3},
  262.    {THREECODE, 44, 20, 4},
  263.    {THREECODE, 44, 20, 5},
  264.    {THREECODE, 44, 20, 6},
  265.    {THREECODE, 44, 20, 7},
  266.    {THREECODE, 44, 20, 8},
  267.    {THREECODE, 44, 20, 9},
  268.    {THREECODE_PT, 44, 20, 0},
  269.    {THREECODE_PT, 44, 20, 1},
  270.    {THREECODE_PT, 44, 20, 2},
  271.    {THREECODE_PT, 44, 20, 3},
  272.    {THREECODE_PT, 44, 20, 4},
  273.    {THREECODE_PT, 44, 20, 5},
  274.    {THREECODE_PT, 44, 20, 6},
  275.    {THREECODE_PT, 44, 20, 7},
  276.    {THREECODE_PT, 44, 20, 8},
  277.    {THREECODE_PT, 44, 20, 9},
  278.    {THREECODE, 44, 20, 25},
  279.    {THREECODE, 44, 20, 24},
  280.  
  281.    {THREECODE, 44, 10, 0},
  282.    {THREECODE, 44, 10, 1},
  283.    {THREECODE, 44, 10, 2},
  284.    {THREECODE, 44, 10, 3},
  285.    {THREECODE, 44, 10, 4},
  286.    {THREECODE, 44, 10, 5},
  287.    {THREECODE, 44, 10, 6},
  288.    {THREECODE, 44, 10, 7},
  289.    {THREECODE, 44, 10, 8},
  290.    {THREECODE, 44, 10, 9},
  291.    {THREECODE_PT, 44, 10, 0},
  292.    {THREECODE_PT, 44, 10, 1},
  293.    {THREECODE_PT, 44, 10, 2},
  294.    {THREECODE_PT, 44, 10, 3},
  295.    {THREECODE_PT, 44, 10, 4},
  296.    {THREECODE_PT, 44, 10, 5},
  297.    {THREECODE_PT, 44, 10, 6},
  298.    {THREECODE_PT, 44, 10, 7},
  299.    {THREECODE_PT, 44, 10, 8},
  300.    {THREECODE_PT, 44, 10, 9},
  301.    {THREECODE, 44, 10, 25},
  302.    {THREECODE, 44, 10, 24},
  303.  
  304. /* RCL */
  305.    {TWOCODE_9, 45, 0},
  306.    {TWOCODE_9, 45, 1},
  307.    {TWOCODE_9, 45, 2},
  308.    {TWOCODE_9, 45, 3},
  309.    {TWOCODE_9, 45, 4},
  310.    {TWOCODE_9, 45, 5},
  311.    {TWOCODE_9, 45, 6},
  312.    {TWOCODE_9, 45, 7},
  313.    {TWOCODE_9, 45, 8},
  314.    {TWOCODE_9, 45, 9},
  315.    {TWOCODE_PT, 45, 0},
  316.    {TWOCODE_PT, 45, 1},
  317.    {TWOCODE_PT, 45, 2},
  318.    {TWOCODE_PT, 45, 3},
  319.    {TWOCODE_PT, 45, 4},
  320.    {TWOCODE_PT, 45, 5},
  321.    {TWOCODE_PT, 45, 6},
  322.    {TWOCODE_PT, 45, 7},
  323.    {TWOCODE_PT, 45, 8},
  324.    {TWOCODE_PT, 45, 9},
  325.    {TWOCODE, 45, 25},
  326.    {TWOCODE, 45, 24},
  327. };
  328.